home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 12, No. 04 - 05 (1991)(MindCraft Publishing)[no boot].zip / Nibble Volume 12, No. 04 - 05 (1991)(MindCraft Publishing)[no boot].po / NIBBLE.1991:APR.VOL12.NO04 / STORM.WINDOW.bas < prev    next >
BASIC Source File  |  1996-12-24  |  558b  |  2 lines
  1. 1  HOME : HGR : TEXT : PRINT "WAIT": FOR P = 1 TO 2: HCOLOR= 3: FOR K = 1 TO 99:X =  INT(276 * RND(1) +1):Y =  INT(143 * RND(1) +1): HPLOT X,Y: NEXT : HCOLOR= 2: HPLOT 4,145 TO 276,150: HCOLOR= 3: HPLOT 0,0 TO 278,0 TO 278,159 TO 0,159 TO 0,0: HPLOT 138,0 TO 138,159: HPLOT 0,79 TO 279,79: PRINT 
  2. 2  PRINT  CHR$(4)"BSAVE/RAM/PIC"P",A$2000,L$2000": HCOLOR= 0: HPLOT 0,0: CALL  -3082: NEXT P:I = 1: POKE 49232,0: POKE 49239,0: FOR Z = 1 TO 100: FOR I = 1 TO 2: PRINT  CHR$(4)"BLOAD/RAM/PIC"I",A$2000": POKE 49235,0: POKE 49236,0: PRINT : NEXT I,Z: TEXT : HOME